Unit ufathistory;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Grids, Wwdbigrd, Wwdbgrid, Mask, wwdbedit,
  Wwdotdot, Wwdbcomb, siComp;

Type
  Tfathistory = Class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    wwDBGrid1: TwwDBGrid;
    Panel2: TPanel;
    Button1: TButton;
    wwDBLookupCombo4: TwwDBComboBox;
    wwDBComboBox1: TwwDBComboBox;
    Procedure Button1Click(Sender: TObject);
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  fathistory: Tfathistory;

Implementation

Uses GarKont, ana1;

{$R *.DFM}

Procedure Tfathistory.Button1Click(Sender: TObject);
Begin
  close;
End;

Procedure Tfathistory.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
  Action := Cafree;
  fathistory := Nil;
End;

procedure Tfathistory.FormShow(Sender: TObject);
begin
  anaform.CreateExport(Self);
end;

End.